home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / idform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-21  |  15.1 KB  |  479 lines
  1. VERSION 2.00
  2. Begin Form IDFORM 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   6810
  6.    ClientLeft      =   30
  7.    ClientTop       =   450
  8.    ClientWidth     =   9600
  9.    Height          =   7215
  10.    Left            =   -30
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6810
  14.    ScaleWidth      =   9600
  15.    Tag             =   "id"
  16.    Top             =   105
  17.    Width           =   9720
  18.    Begin AniPushButton AniButton1 
  19.       BackColor       =   &H00FF0000&
  20.       Caption         =   "Next Page"
  21.       ForeColor       =   &H00FFFFFF&
  22.       Height          =   465
  23.       Index           =   0
  24.       Left            =   8040
  25.       Picture         =   IDFORM.FRX:0000
  26.       Speed           =   162
  27.       TabIndex        =   3
  28.       TextPosition    =   2  'Left
  29.       Top             =   6240
  30.       Width           =   1440
  31.    End
  32.    Begin AniPushButton AniButton2 
  33.       BackColor       =   &H00FFFFFF&
  34.       Height          =   480
  35.       Left            =   4560
  36.       PictDrawMode    =   1  'Autosize control
  37.       Picture         =   IDFORM.FRX:0EAC
  38.       Speed           =   162
  39.       TabIndex        =   5
  40.       TextPosition    =   2  'Left
  41.       Top             =   6240
  42.       Width           =   480
  43.    End
  44.    Begin AniPushButton AniButton1 
  45.       BackColor       =   &H00FF0000&
  46.       Caption         =   "Back Page"
  47.       ForeColor       =   &H00FFFFFF&
  48.       Height          =   465
  49.       Index           =   1
  50.       Left            =   120
  51.       Picture         =   IDFORM.FRX:148E
  52.       Speed           =   162
  53.       TabIndex        =   4
  54.       TextPosition    =   1  'Right
  55.       Top             =   6240
  56.       Width           =   1515
  57.    End
  58.    Begin SSPanel Panel3D1 
  59.       Alignment       =   6  'Center - TOP
  60.       BackColor       =   &H00C0C0C0&
  61.       BevelInner      =   1  'Inset
  62.       BevelOuter      =   0  'None
  63.       BevelWidth      =   3
  64.       Caption         =   "PATIENT IDENTIFICATION"
  65.       Font3D          =   3  'Inset w/light shading
  66.       FontBold        =   -1  'True
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Serif"
  69.       FontSize        =   24
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       ForeColor       =   &H00000000&
  73.       Height          =   6135
  74.       Left            =   0
  75.       TabIndex        =   6
  76.       Top             =   0
  77.       Width           =   9735
  78.       Begin SSCheck Check3D1 
  79.          Caption         =   "   ENABLE ENTRY CHECKING"
  80.          Font3D          =   3  'Inset w/light shading
  81.          FontBold        =   -1  'True
  82.          FontItalic      =   0   'False
  83.          FontName        =   "MS Serif"
  84.          FontSize        =   12
  85.          FontStrikethru  =   0   'False
  86.          FontUnderline   =   0   'False
  87.          ForeColor       =   &H00000000&
  88.          Height          =   375
  89.          Left            =   2880
  90.          TabIndex        =   15
  91.          Top             =   5520
  92.          Width           =   3975
  93.       End
  94.       Begin SSPanel Panel3D2 
  95.          Alignment       =   6  'Center - TOP
  96.          BackColor       =   &H00C0C0C0&
  97.          BevelInner      =   1  'Inset
  98.          BevelOuter      =   0  'None
  99.          BevelWidth      =   3
  100.          Caption         =   "GENDER"
  101.          Font3D          =   3  'Inset w/light shading
  102.          FontBold        =   -1  'True
  103.          FontItalic      =   0   'False
  104.          FontName        =   "MS Serif"
  105.          FontSize        =   12
  106.          FontStrikethru  =   0   'False
  107.          FontUnderline   =   0   'False
  108.          ForeColor       =   &H00000000&
  109.          Height          =   1695
  110.          Left            =   2520
  111.          TabIndex        =   11
  112.          Top             =   3720
  113.          Width           =   4455
  114.          Begin SSOption Option3D1 
  115.             Caption         =   "FEMALE"
  116.             Font3D          =   0  'None
  117.             FontBold        =   -1  'True
  118.             FontItalic      =   0   'False
  119.             FontName        =   "MS Serif"
  120.             FontSize        =   9.75
  121.             FontStrikethru  =   0   'False
  122.             FontUnderline   =   0   'False
  123.             ForeColor       =   &H00000000&
  124.             Height          =   495
  125.             Index           =   1
  126.             Left            =   2040
  127.             TabIndex        =   13
  128.             TabStop         =   0   'False
  129.             Top             =   960
  130.             Width           =   2295
  131.          End
  132.          Begin AniPushButton AniButton4 
  133.             BackColor       =   &H00C0C0C0&
  134.             Cycle           =   1  'By frame
  135.             Height          =   735
  136.             Left            =   360
  137.             Picture         =   IDFORM.FRX:233A
  138.             TabIndex        =   14
  139.             Top             =   480
  140.             Width           =   855
  141.          End
  142.          Begin SSOption Option3D1 
  143.             Caption         =   "MALE"
  144.             Font3D          =   0  'None
  145.             FontBold        =   -1  'True
  146.             FontItalic      =   0   'False
  147.             FontName        =   "MS Serif"
  148.             FontSize        =   9.75
  149.             FontStrikethru  =   0   'False
  150.             FontUnderline   =   0   'False
  151.             ForeColor       =   &H00000000&
  152.             Height          =   495
  153.             Index           =   0
  154.             Left            =   2040
  155.             TabIndex        =   12
  156.             TabStop         =   0   'False
  157.             Top             =   360
  158.             Width           =   2295
  159.          End
  160.       End
  161.       Begin Timer Timer2 
  162.          Left            =   1200
  163.          Top             =   3120
  164.       End
  165.       Begin VHedit HEdit1 
  166.          FontBold        =   -1  'True
  167.          FontItalic      =   0   'False
  168.          FontName        =   "MS Serif"
  169.          FontSize        =   24
  170.          FontStrikethru  =   0   'False
  171.          FontUnderline   =   0   'False
  172.          Height          =   525
  173.          InflateBottom   =   270
  174.          InflateLeft     =   270
  175.          InflateRight    =   270
  176.          InflateTop      =   270
  177.          Left            =   7920
  178.          TabIndex        =   9
  179.          Top             =   2640
  180.          Version         =   268435458
  181.          Visible         =   0   'False
  182.          Width           =   1215
  183.       End
  184.       Begin Timer Timer1 
  185.          Left            =   1200
  186.          Top             =   2520
  187.       End
  188.       Begin SSCommand Command3D1 
  189.          Caption         =   "ENTER ID"
  190.          Font3D          =   0  'None
  191.          FontBold        =   -1  'True
  192.          FontItalic      =   0   'False
  193.          FontName        =   "MS Serif"
  194.          FontSize        =   12
  195.          FontStrikethru  =   0   'False
  196.          FontUnderline   =   0   'False
  197.          ForeColor       =   &H00000000&
  198.          Height          =   975
  199.          Index           =   1
  200.          Left            =   5280
  201.          Picture         =   IDFORM.FRX:2C0A
  202.          TabIndex        =   2
  203.          Top             =   2280
  204.          Width           =   1935
  205.       End
  206.       Begin SSCommand Command3D1 
  207.          Caption         =   "NEW PATIENT"
  208.          Font3D          =   0  'None
  209.          FontBold        =   -1  'True
  210.          FontItalic      =   0   'False
  211.          FontName        =   "MS Serif"
  212.          FontSize        =   12
  213.          FontStrikethru  =   0   'False
  214.          FontUnderline   =   0   'False
  215.          ForeColor       =   &H00000000&
  216.          Height          =   975
  217.          Index           =   0
  218.          Left            =   2280
  219.          Picture         =   IDFORM.FRX:2F0C
  220.          TabIndex        =   1
  221.          Top             =   2280
  222.          Width           =   1935
  223.       End
  224.       Begin AniPushButton AniButton3 
  225.          BackColor       =   &H00C0C0C0&
  226.          Cycle           =   1  'By frame
  227.          Height          =   480
  228.          Index           =   2
  229.          Left            =   7080
  230.          PictDrawMode    =   1  'Autosize control
  231.          Picture         =   IDFORM.FRX:320E
  232.          TabIndex        =   10
  233.          Top             =   1080
  234.          Width           =   480
  235.       End
  236.       Begin AniPushButton AniButton3 
  237.          BackColor       =   &H00C0C0C0&
  238.          Cycle           =   1  'By frame
  239.          Height          =   855
  240.          Index           =   1
  241.          Left            =   8040
  242.          PictDrawMode    =   2  'Stretch to fit
  243.          Picture         =   IDFORM.FRX:37F0
  244.          Speed           =   162
  245.          TabIndex        =   8
  246.          Top             =   960
  247.          Width           =   855
  248.       End
  249.       Begin VBedit BEdit1 
  250.          CellHeight      =   480
  251.          CellWidth       =   360
  252.          CharSet         =   16412
  253.          CombBaseLine    =   480
  254.          CombColor       =   &H00000000&
  255.          CombEndHeight   =   390
  256.          CombEndMarker   =   0   'False
  257.          CombHeight      =   230
  258.          FontBold        =   -1  'True
  259.          FontItalic      =   0   'False
  260.          FontName        =   "MS Serif"
  261.          FontSize        =   24
  262.          FontStrikethru  =   0   'False
  263.          FontUnderline   =   0   'False
  264.          Height          =   855
  265.          InflateBottom   =   1
  266.          InflateLeft     =   2
  267.          InflateRight    =   2
  268.          InflateTop      =   1
  269.          Left            =   2640
  270.          TabIndex        =   0
  271.          Top             =   960
  272.          Version         =   268435458
  273.          Width           =   4095
  274.       End
  275.       Begin AniPushButton AniButton3 
  276.          BackColor       =   &H00C0C0C0&
  277.          Cycle           =   1  'By frame
  278.          Height          =   855
  279.          Index           =   0
  280.          Left            =   720
  281.          PictDrawMode    =   2  'Stretch to fit
  282.          Picture         =   IDFORM.FRX:3DD2
  283.          Speed           =   162
  284.          TabIndex        =   7
  285.          Top             =   960
  286.          Width           =   855
  287.       End
  288.    End
  289. Dim flashflag As Integer
  290. Sub AniButton1_Click (INDEX As Integer)
  291. If smartform(1) Then
  292. Select Case INDEX
  293. Case 1
  294.         admit.picture1.Cls
  295.         admit.picture1.autoredraw = -1
  296.         admit.picture1.Scale (0, 0)-(3, 4)
  297.         admit.picture1.currentx = .8
  298.         admit.picture1.currenty = 1.2
  299.         admit.picture1.Print "CLICK"
  300.         admit.picture1.currentx = 1
  301.         admit.picture1.currenty = 2
  302.         admit.picture1.Print " TO"
  303.         admit.picture1.currentx = .6
  304.         admit.picture1.currenty = 2.8
  305.         admit.picture1.Print "RETURN"
  306.         admit.Show
  307.         idform.Hide
  308.         timer1.enabled = 0
  309.        
  310. Case 0
  311. assess1.Show
  312. idform.Hide
  313. timer1.enabled = 0
  314. End Select
  315. formcheck "Identification Form"
  316. End If
  317. End Sub
  318. Sub AniButton2_Click ()
  319. If smartform(1) Then
  320. menumode idform
  321. timer1.enabled = 0
  322. formcheck "Identification Form"
  323. End If
  324. End Sub
  325. Sub AniButton3_Click (INDEX As Integer)
  326. If INDEX = 0 Then
  327. timer1.enabled = 0
  328. COMMAND3D1(0).CAPTION = "NEW PATIENT"
  329. End If
  330. If INDEX = 1 Then
  331. timer1.enabled = 0
  332. COMMAND3D1(1).CAPTION = "ENTER ID"
  333. End If
  334. If INDEX = 2 Then
  335. Select Case anibutton3(2).VALUE
  336. Case 2
  337. editswap bedit1, hedit1, 1
  338.     bedit1.visible = 0
  339.     hedit1.visible = -1
  340.     hedit1.enabled = 0
  341. Case 1
  342. editswap bedit1, hedit1, 2
  343.     bedit1.visible = -1
  344.     hedit1.visible = 0
  345.     hedit1.enabled = -1
  346. End Select
  347. End If
  348. End Sub
  349. Sub BEdit1_Update ()
  350. 'bedit1.text = "###-##-####"
  351. If bedit1.selstart = 10 Then
  352. If Mid$(bedit1.text, 4, 1) <> "-" Or Mid$(bedit1.text, 7, 1) <> "-" Then
  353.     For n = 1 To Len(bedit1.text)
  354.         If n = 4 Or n = 7 Then
  355.             a$ = a$ + "-"
  356.             'a$ = a$ + Mid$(bedit1.text, n, 1)
  357.         Else
  358.             a$ = a$ + Mid$(bedit1.text, n, 1)
  359.         End If
  360.     Next n
  361.     bedit1.text = a$
  362. End If
  363. bedit1.selstart = 11
  364. End If
  365. End Sub
  366. Sub Check3D1_Click (VALUE As Integer)
  367. If CHECK3D1.VALUE Then
  368.     TYPECHECK = -1
  369.     Else
  370.     TYPECHECK = 0
  371. End If
  372. End Sub
  373. Sub Command3D1_Click (INDEX As Integer)
  374. Select Case INDEX
  375. Case 1
  376. a$ = bedit1.text
  377. curpatID = validID(a$)
  378. If curpatID Then
  379.  If COMMAND3D1(1).CAPTION = "ENTER ID" Then COMMAND3D1(1).CAPTION = "KNOWN"
  380.     newflag = 0
  381.     ID$ = Left$(LTrim$(Str$(curpatID)), 4) + "body"
  382.     inkID$ = Left$(LTrim$(Str$(curpatID)), 4) + "ink"
  383.     If MsgBox("     Retrieve Patient Data?", 4, "IDENTIFICATION FORM") = 6 Then
  384.        restoredata curpatID
  385.        restored = -1
  386.     Else
  387.     restored = 0
  388.     End If
  389.     flashflag = 1
  390.     timer1.interval = 679
  391.     timer1.enabled = -1
  392.     editswap bedit1, hedit1, 1
  393.     bedit1.visible = 0
  394.     hedit1.visible = -1
  395.     hedit1.enabled = 0
  396.     anibutton3(2).VALUE = 2
  397.     temprecord.patid = curpatID
  398. Else MsgBox "Please Enter A Valid Patient ID Number", 48, "Retrieve Patient Record"
  399. End If
  400. '******************************************
  401. Case 0         'new patient
  402. a$ = bedit1.text
  403.         For n = 1 To Len(a$)
  404.             If Mid$(a$, n, 1) <> "-" Then
  405.             c$ = c$ + Mid$(a$, n, 1)
  406.             End If
  407.         Next
  408. curpatID = Val(c$)
  409. COMMAND3D1(0).CAPTION = "NEW ENTRY"
  410. newflag = -1
  411. ID$ = Left$(LTrim$(Str$(curpatID)), 4) + "body"
  412. inkID$ = Left$(LTrim$(Str$(curpatID)), 4) + "ink"
  413.     timer1.interval = 679
  414.     flashflag = 0
  415.     editswap bedit1, hedit1, 1
  416.     bedit1.visible = 0
  417.     hedit1.visible = -1
  418.     hedit1.enabled = 0
  419.     anibutton3(2).VALUE = 2
  420.     temprecord.patid = curpatID
  421. If timer1.enabled Then
  422.     timer1.enabled = 0
  423.     Else timer1.enabled = -1
  424.     End If
  425. End Select
  426. End Sub
  427. Sub Form_Load ()
  428. bedit1.text = "   -  -    "
  429. idform.Move 0, 0, SCREEN.width, SCREEN.height
  430. anibutton1(1).Move .1 * anibutton1(1).width, idform.height - 1.1 * anibutton1(0).height
  431. anibutton2.Move (idform.width - anibutton2.width) / 2, idform.height - 1.1 * anibutton2.height
  432. anibutton1(0).Move idform.width - 1.1 * anibutton1(0).width, idform.height - 1.1 * anibutton1(1).height
  433. idform.Scale (0, 0)-(4, 6)
  434. PANEL3D1.Move 0, 0, 4, 5.5
  435. 'command3d1(0).Move panel3d1.width \ 2 - command3d1(0).width, panel3d1.height \ 6
  436. 'command3d1(1).Move panel3d1.width \ 2 + command3d1(0).width, panel3d1.height \ 6
  437. 'command3d1(2).Move panel3d1.width \ 2 - command3d1(0).width, 4 * panel3d1.height \ 6
  438. 'command3d1(3).Move panel3d1.width \ 2 + command3d1(0).width, 4 * panel3d1.height \ 6
  439. hedit1.Move bedit1.left, bedit1.top, bedit1.width * 1.07, bedit1.height
  440. flashflag = 0
  441. timer2.interval = 10
  442. timer2.enabled = -1
  443. timer1.interval = 679
  444. timer1.enabled = -1
  445. End Sub
  446. Sub Option3D1_Click (INDEX As Integer, VALUE As Integer)
  447. Select Case INDEX
  448. Case 1
  449. 'FEMME
  450. temprecord.sex = -1
  451. timer1.enabled = 0
  452. ANIBUTTON4.VALUE = 3
  453. Case 0
  454. 'HOMME
  455. temprecord.sex = 1
  456. timer1.enabled = 0
  457. ANIBUTTON4.VALUE = 2
  458. End Select
  459. End Sub
  460. Sub Timer1_Timer ()
  461. Select Case flashflag
  462. Case 0
  463. If anibutton3(flashflag).VALUE = 1 Then
  464.     anibutton3(flashflag).VALUE = 2
  465.     anibutton3(flashflag).VALUE = 1
  466.     End If
  467. Case 1
  468. If anibutton3(flashflag).VALUE = 1 Then
  469.     anibutton3(flashflag).VALUE = 2
  470.     anibutton3(flashflag).VALUE = 1
  471.     End If
  472. End Select
  473. End Sub
  474. Sub Timer2_Timer ()
  475. Load assess1
  476. SCREEN.MOUSEPOINTER = 0
  477. timer2.enabled = 0
  478. End Sub
  479.